COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	DEFINE EXPRPCODES"[][]"=[
C00004 ENDMK
C⊗;
DEFINE EXPRPCODES"[][]"=[
XX(XXSETBAS,	XSETBAS)
XX(XXGATHER,	XGATHER)
XX(XXRFORCE,	XRFORCE)
XX(XXSTIFF,	XSTIFF)
XX(XXSTOP,	XSTOP)
XX(XXDISVT05,	XDISVT05)
XX(XXPSIGNAL,	XPSIGNAL)
XX(XXPWAIT,	XPWAIT)
XX(XXPAUSE,	XPAUSE)
XX(XXPUSHPC,	XPUSHPC)
XX(XXMDONE,	XMDONE)
XX(XXPRETRY,	XPRETRY)
XX(XXSETSPEED,	XSETSPEED)
XX(XXDDT,	XDDT)
XX(XXABORT,	XABORT)
XX(XXPROMPT,	XPROMPT)
XX(XXNOOP,	XNOOP)
XX(XXSTIF0,	XSTIF0)
XX(XXSETSTF,	XSETSTF)
XX(XXPUNFIX,	XPUNFIX)
XX(XXPWRIST,	XPWRIST)
XX(XXCHNGS,	XCHNGS)
XX(XXCMVAR,	XCMVAR)
XX(XXCMENBL,	XCMENBL)
XX(XXCMDSBL,	XCMDSBL)
XX(XXSNEG,	XSNEG)
XX(XXPKVAR,	XPKVAR)
XX(XXPUSHINTI,	XPUSHINTI)
XX(XXDISCVT05,	XDISCVT05)
XX(XXPOP,	XPOP)
XX(XXDAC,	XDAC)
];

require "[][]" delimiters;

redefine xxcount=0;

ifc $pproc ∨ $pproc2 thenc
redefine xx(xxarg,xarg)=[redefine xxcount=xxcount+1;
	redefine xxtemp =[ define xxarg = xxcount];
	xxtemp;];
endc

ifc $pcode thenc
redefine xx(xxarg,xarg)=[redefine xxcount=xxcount+1;];
endc	

exprpcodes;
define #count=xxcount;

ifc $pcode thenc
redefine xx(xxarg,xarg)=[xarg,];
preload_array(pcdcod, exprpcodes,integer,1,#count);
endc